home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / dwarfx / dwarf24.lha / dwarfaway.amirx < prev    next >
Text File  |  1980-12-25  |  3KB  |  36 lines
  1. /* · DWaRFAWaY.AMIRX -- Away/Back script for AmIRC - The Amiga IRC Client.
  2. \\ · ver$ |DWaRFx| v1.x - Gareth Murfin - GåZ on IRC
  3. // · |DWaRFx| Url - www.users.globalnet.co.uk/~gazy/dwarf.htm
  4. \\ · By Gareth Murfin - GåZ on GalaxyNets #AmIRC ·
  5. // · Drop By My Channel #AmIRC
  6. \\ · How Do I use this DWaRF thingy? «·» : DwAWAY [reason]
  7. //   <------------------------------------------------------------------->
  8. \\ · If you give a reason then you will be set AWAY with it.
  9. // · If you dont give a reason you will be set BACK.
  10. \\   <------------------------------------------------------------------->
  11. // · Installation: make an alias - DwAWAY = /RX DWaRFAWaY.amirx %p
  12. \\ · Copy DWaRFAWaY.amirx to AmIRC:ReXX
  13. //   <------------------------------------------------------------------->
  14. \\ · |DWaRFx| v1.X - By Gareth Murfin of |GÅZ§ting®| enterprises.
  15. //   <------------------------------------------------------------------->
  16. \\ · Optional Installation [I use this :P] : Goto Actions and Create these
  17. // · Buttons :-
  18. \\ ·            Button ONE   DwAWAY - Be Back Soon %c
  19. // ·            Button TWO   DwAWAY
  20. \\ · Call Button one '|DWaRFx|-'  &  Call Button two '|DWaRFx|+
  21. //   <------------------------------------------------------------------->
  22. \\ · Ok? All you have to do now is click on the '|DWaRFx|-' button to
  23. // · be set away with the reason Be Back Soon <channel name>
  24. \\ · And then click on the '|DWaRFx|+' button to be set back! Cool Huh?
  25. // · By the way it will also send out an Amusing Public Message which
  26. \\ · people will probably laugh at! You wont see it but to find out what
  27. // · it is look down below.    Well it is a RedDwarf script! :P
  28. \\   <------------------------------------------------------------------->
  29. */
  30.  
  31. /* Compressed with CompressRexx v2.1, (C) 1993-96 Robert Hofmann */
  32. parse arg reason;options results;getusers;users = result;Call Setclip('DFxTIME',Time());Do a = 1 to Words(users);user = Subword(users,a,1);If Upper(user) = 'GåZ' then do;Getmynick;mynick = result;'SAY /OP GåZ';Leave;End;End;"CHANNELS";CHANLIST = result;"GETMYNICK";MYNICK = result;count = 1;if REASON ~="" then do;do until count = 0;CHAN = word(CHANLIST,count);if CHAN ~= "" then do;"RAW PRIVMSG "CHAN" :"d2c(1)"ACTION has gone to surgery for a limb to be hacked off after getting infected by Mr Epideme!  . [AWAY] |DWaRFx| v2.3 - "d2c(2) REASON d2c(1);count = count + 1;end;else do;count = 0;"ECHO P="d2c(27)"b«|DWaRFx|»"d2c(27)" "MYNICK" Has been Set AWAY using |DWaRFx| v2.3 - "d2c(2)REASON;"RAW AWAY :"d2c(2)REASON;end;end;end;else do;do until count = 0;CHAN = word(CHANLIST,count);if CHAN ~= "" then do;"RAW PRIVMSG "CHAN" :"d2c(1)"ACTION has returned with no arm! Luckily Kryten is on 24 hour wipe alert (although without Miss Kochanskis approval!) . [BACK] |DWaRFx| v2.3 - "d2c(1);count = cou
  33. nt + 1;end;else do
  34. count = 0;"ECHO P="d2c(27)"b«|DWaRFx|»"d2c(27)" "MYNICK" has been Set BACK using |DWaRFx| v2.3 ";"RAW AWAY :";end;end;end
  35. /* Original script: 80 lines, 3042 bytes */
  36.